/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / andrew / string.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 23 61 63 63 3d 32 00 | 80 04 20 74 6f 70 73 28 |.#acc=2.|.. tops(|
|00000010| 23 61 63 63 29 2c 62 6f | 74 73 28 23 61 63 63 29 |#acc),bo|ts(#acc)|
|00000020| 00 00 00 80 05 20 62 6f | 74 74 00 00 80 33 2e 66 |..... bo|tt...3.f|
|00000030| 00 00 00 80 09 2e 66 20 | 66 61 63 74 7b 78 2e 77 |......f |fact{x.w|
|00000040| 7d 00 00 20 20 80 0b 20 | 78 3e 3d 30 00 20 20 20 |}..  .. |x>=0.   |
|00000050| 20 80 09 20 80 07 20 da | 02 2e 66 28 3f 66 61 63 | .. .. .|..f(?fac|
|00000060| 74 70 2b 78 20 80 44 20 | 32 29 00 20 20 80 22 00 |tp+x .D |2).  .".|
|00000070| 20 20 20 20 80 09 20 80 | 07 20 da 02 2e 66 28 3f |    .. .|. ...f(?|
|00000080| 66 61 63 74 6e 2b 28 2d | 31 2d 78 29 20 80 44 20 |factn+(-|1-x) .D |
|00000090| 32 29 00 20 20 80 c0 00 | 00 00 20 20 66 61 63 74 |2).  ...|..  fact|
|000000a0| 70 3a 00 20 20 80 25 2e | 6c 20 24 38 30 30 30 30 |p:.  .%.|l $80000|
|000000b0| 30 34 31 2c 24 38 30 30 | 30 30 30 34 31 2c 24 38 |041,$800|00041,$8|
|000000c0| 30 30 30 30 30 34 32 2c | 24 43 30 30 30 30 30 34 |0000042,|$C000004|
|000000d0| 33 2c 24 43 30 30 30 30 | 30 34 35 2c 24 46 30 30 |3,$C0000|045,$F00|
|000000e0| 30 30 30 34 37 2c 24 42 | 34 30 30 30 30 34 41 2c |00047,$B|400004A,|
|000000f0| 24 39 44 38 30 30 30 34 | 44 00 20 20 80 25 2e 6c |$9D80004|D.  .%.l|
|00000100| 20 24 39 44 38 30 30 30 | 35 30 2c 24 42 31 33 30 | $9D8000|50,$B130|
|00000110| 30 30 35 33 2c 24 44 44 | 37 43 30 30 35 36 2c 24 |0053,$DD|7C0056,$|
|00000120| 39 38 34 35 34 30 35 41 | 2c 24 45 34 36 37 45 30 |9845405A|,$E467E0|
|00000130| 35 44 2c 24 42 39 39 34 | 36 36 36 31 2c 24 41 32 |5D,$B994|6661,$A2|
|00000140| 36 31 44 39 36 35 2c 24 | 39 38 33 42 42 42 36 39 |61D965,$|983BBB69|
|00000150| 00 20 20 80 25 2e 6c 20 | 24 39 38 33 42 42 42 36 |.  .%.l |$983BBB6|
|00000160| 44 2c 24 41 31 42 46 37 | 37 37 31 2c 24 42 35 46 |D,$A1BF7|771,$B5F|
|00000170| 37 36 36 37 35 2c 24 44 | 38 31 35 43 39 37 39 2c |76675,$D|815C979,|
|00000180| 24 38 37 30 44 39 45 37 | 45 2c 24 46 46 46 46 46 |$870D9E7|E,$FFFFF|
|00000190| 46 37 46 2c 24 46 46 46 | 46 46 46 37 46 2c 24 46 |F7F,$FFF|FFF7F,$F|
|000001a0| 46 46 46 46 46 37 46 00 | 00 20 20 66 61 63 74 6e |FFFFF7F.|.  factn|
|000001b0| 00 20 20 80 25 2e 6c 20 | 24 38 30 30 30 30 30 43 |.  .%.l |$800000C|
|000001c0| 31 2c 24 38 30 30 30 30 | 30 34 31 2c 24 38 30 30 |1,$80000|041,$800|
|000001d0| 30 30 30 43 30 2c 24 41 | 41 41 41 41 42 33 45 2c |000C0,$A|AAAAB3E,|
|000001e0| 24 41 41 41 41 41 42 42 | 43 2c 24 38 38 38 38 38 |$AAAAABB|C,$88888|
|000001f0| 39 33 41 2c 24 42 36 30 | 42 36 31 42 37 2c 24 44 |93A,$B60|B61B7,$D|
|00000200| 30 30 44 30 31 33 34 00 | 20 20 80 25 2e 6c 20 24 |00D0134.|  .%.l $|
|00000210| 44 30 30 44 30 31 42 31 | 2c 24 42 38 45 46 31 44 |D00D01B1|,$B8EF1D|
|00000220| 32 45 2c 24 39 33 46 32 | 37 45 41 42 2c 24 44 37 |2E,$93F2|7EAB,$D7|
|00000230| 33 32 32 43 32 37 2c 24 | 38 46 37 36 43 38 41 34 |322C27,$|8F76C8A4|
|00000240| 2c 24 42 30 39 32 33 31 | 32 30 2c 24 43 39 43 42 |,$B09231|20,$C9CB|
|00000250| 41 36 39 43 2c 24 44 37 | 33 46 41 30 31 38 00 20 |A69C,$D7|3FA018. |
|00000260| 20 80 25 2e 6c 20 24 44 | 37 33 46 41 30 39 34 2c | .%.l $D|73FA094,|
|00000270| 24 43 41 39 36 33 43 31 | 30 2c 24 42 34 31 33 43 |$CA963C1|0,$B413C|
|00000280| 34 38 43 2c 24 39 37 41 | 34 44 42 30 38 2c 24 46 |48C,$97A|4DB08,$F|
|00000290| 32 41 31 35 45 38 33 2c | 24 30 30 30 30 30 30 30 |2A15E83,|$0000000|
|000002a0| 30 2c 24 30 30 30 30 30 | 30 30 30 2c 24 30 30 30 |0,$00000|000,$000|
|000002b0| 30 30 30 30 30 00 00 80 | 02 20 80 09 00 00 00 80 |00000...|. ......|
|000002c0| 09 20 2e 71 20 67 61 6d | 6d 61 7b 78 7d 00 20 20 |. .q gam|ma{x}.  |
|000002d0| 73 63 61 6c 3d 31 00 20 | 20 80 0c 20 78 3e 3d 32 |scal=1. | .. x>=2|
|000002e0| 00 20 20 20 20 78 2d 31 | 00 20 20 20 20 73 63 61 |.    x-1|.    sca|
|000002f0| 6c 3d 73 63 61 6c 2a 78 | 00 20 20 80 c1 00 20 20 |l=scal*x|.  ...  |
|00000300| 80 0c 20 78 3c 31 00 20 | 20 20 20 80 0b 20 78 3d |.. x<1. |   .. x=|
|00000310| 30 20 80 21 20 80 09 20 | 80 07 20 33 32 37 36 37 |0 .! .. |.. 32767|
|00000320| 2e 39 39 39 39 00 20 20 | 20 20 73 63 61 6c 3d 73 |.9999.  |  scal=s|
|00000330| 63 61 6c 2f 78 00 20 20 | 20 20 78 2b 31 00 20 20 |cal/x.  |  x+1.  |
|00000340| 80 c1 00 00 20 20 62 6c | 61 68 3d c3 83 28 78 29 |....  bl|ah=..(x)|
|00000350| 00 20 20 62 6c 61 68 20 | 2a 33 32 00 20 20 62 61 |.  blah |*32.  ba|
|00000360| 73 65 2e 77 3d 62 6c 61 | 68 00 20 20 66 3d c3 83 |se.w=bla|h.  f=..|
|00000370| 28 62 6c 61 68 29 00 20 | 20 6f 66 3d 31 2d 66 00 |(blah). | of=1-f.|
|00000380| 00 00 20 20 74 65 6d 70 | 31 3d da 02 2e 71 28 3f |..  temp|1=...q(?|
|00000390| 67 61 6d 2b 62 61 73 65 | 20 80 44 20 32 20 20 20 |gam+base| .D 2   |
|000003a0| 29 00 20 20 74 65 6d 70 | 32 3d da 02 2e 71 28 3f |).  temp|2=...q(?|
|000003b0| 67 61 6d 2b 62 61 73 65 | 20 80 44 20 32 20 2b 34 |gam+base| .D 2 +4|
|000003c0| 29 00 20 20 80 09 20 80 | 07 20 28 74 65 6d 70 32 |).  .. .|. (temp2|
|000003d0| 2a 66 2b 74 65 6d 70 31 | 2a 6f 66 29 2a 73 63 61 |*f+temp1|*of)*sca|
|000003e0| 6c 00 00 00 67 61 6d 3a | 20 80 2a 20 22 67 61 6d |l...gam:| .* "gam|
|000003f0| 6d 61 2e 64 61 74 22 00 | 20 20 80 25 2e 6c 20 24 |ma.dat".|  .%.l $|
|00000400| 31 30 30 30 30 00 80 02 | 20 80 09 00 00 00 00 00 |10000...| .......|
|00000410| 00 80 09 20 2e 66 20 62 | 65 73 73 65 6c 6a 7b 6e |... .f b|esselj{n|
|00000420| 2c 78 7d 20 20 3b 66 6f | 72 20 78 3c 31 36 00 80 |,x}  ;fo|r x<16..|
|00000430| 15 20 74 6f 70 73 28 29 | 2c 62 6f 74 73 28 29 00 |. tops()|,bots().|
|00000440| 00 20 20 74 6f 74 3d 30 | 00 20 20 68 78 3d 78 2f |.  tot=0|.  hx=x/|
|00000450| 32 00 00 20 20 80 16 20 | 63 6e 74 2e 77 3d 31 20 |2..  .. |cnt.w=1 |
|00000460| 80 18 20 23 61 63 63 3a | 74 6f 70 73 28 63 6e 74 |.. #acc:|tops(cnt|
|00000470| 29 3d 31 3a 80 17 00 00 | 20 20 74 65 6d 70 61 3d |)=1:....|  tempa=|
|00000480| 28 68 78 5e 6e 29 00 20 | 20 74 65 6d 70 62 3d 67 |(hx^n). | tempb=g|
|00000490| 61 6d 6d 61 7b 6e 2b 31 | 7d 00 20 20 74 6f 70 73 |amma{n+1|}.  tops|
|000004a0| 28 30 29 3d 74 65 6d 70 | 61 2f 74 65 6d 70 62 00 |(0)=temp|a/tempb.|
|000004b0| 00 80 d3 00 20 20 73 3d | 30 3a 64 6f 6e 65 2e 77 |....  s=|0:done.w|
|000004c0| 3d 80 c6 00 20 20 80 bb | 00 00 80 1c 20 23 61 63 |=...  ..|.... #ac|
|000004d0| 63 3d 32 00 20 20 74 65 | 6d 70 3d 74 6f 70 73 28 |c=2.  te|mp=tops(|
|000004e0| 30 29 2a 74 6f 70 73 28 | 31 29 2a 74 6f 70 73 28 |0)*tops(|1)*tops(|
|000004f0| 32 29 00 80 1e 00 20 20 | 20 20 74 65 6d 70 3d 74 |2)....  |  temp=t|
|00000500| 6f 70 73 28 30 29 00 20 | 20 20 20 80 16 20 63 6e |ops(0). |   .. cn|
|00000510| 74 2e 77 3d 31 20 80 18 | 20 23 61 63 63 00 20 20 |t.w=1 ..| #acc.  |
|00000520| 20 20 20 20 74 65 6d 70 | 3d 74 65 6d 70 2a 74 6f |    temp|=temp*to|
|00000530| 70 73 28 63 6e 74 29 00 | 20 20 20 20 80 17 00 80 |ps(cnt).|    ....|
|00000540| 1f 00 00 20 20 20 20 80 | 0b 20 28 73 3e 33 29 00 |...    .|. (s>3).|
|00000550| 20 20 20 20 20 20 80 0b | 20 28 bc 09 28 74 65 6d |      ..| (..(tem|
|00000560| 70 29 3c 30 2e 30 30 30 | 31 29 20 80 21 20 64 6f |p)<0.000|1) .! do|
|00000570| 6e 65 3d 80 c5 00 20 20 | 20 20 80 c0 00 20 20 20 |ne=...  |  ...   |
|00000580| 20 74 6f 74 3d 74 6f 74 | 2b 20 74 65 6d 70 00 00 | tot=tot|+ temp..|
|00000590| 20 20 20 20 69 64 78 2e | 77 3d 30 3a 6d 61 78 3d |    idx.|w=0:max=|
|000005a0| bc 09 28 74 6f 70 73 28 | 30 29 29 00 20 20 20 20 |..(tops(|0)).    |
|000005b0| 80 16 20 63 6e 74 2e 77 | 3d 31 20 80 18 20 23 61 |.. cnt.w|=1 .. #a|
|000005c0| 63 63 00 20 20 20 20 20 | 20 74 65 6d 70 61 3d bc |cc.     | tempa=.|
|000005d0| 09 28 74 6f 70 73 28 63 | 6e 74 29 29 00 20 20 20 |.(tops(c|nt)).   |
|000005e0| 20 20 20 80 0b 20 74 65 | 6d 70 61 3e 6d 61 78 20 |   .. te|mpa>max |
|000005f0| 80 21 20 69 64 78 3d 63 | 6e 74 3a 6d 61 78 3d 74 |.! idx=c|nt:max=t|
|00000600| 65 6d 70 61 00 20 20 20 | 20 80 17 00 00 20 20 20 |empa.   | ....   |
|00000610| 20 74 6f 70 73 28 69 64 | 78 29 3d 74 6f 70 73 28 | tops(id|x)=tops(|
|00000620| 69 64 78 29 2a 68 78 2a | 68 78 2f 28 2d 73 2d 31 |idx)*hx*|hx/(-s-1|
|00000630| 29 2f 28 73 2b 6e 2b 31 | 29 00 00 00 3b 20 20 20 |)/(s+n+1|)...;   |
|00000640| 20 74 6f 70 3d 28 2d 31 | 29 5e 73 20 2a 20 68 78 | top=(-1|)^s * hx|
|00000650| 5e 28 6e 2b 73 2b 73 29 | 00 3b 20 20 20 20 62 6f |^(n+s+s)|.;    bo|
|00000660| 74 3d 66 61 63 74 7b 73 | 7d 2a 67 61 6d 6d 61 7b |t=fact{s|}*gamma{|
|00000670| 6e 2b 73 2b 31 7d 00 3b | 20 20 20 20 74 6f 70 73 |n+s+1}.;|    tops|
|00000680| 28 31 29 3d 74 6f 70 73 | 28 31 29 2a 68 78 2a 68 |(1)=tops|(1)*hx*h|
|00000690| 78 00 3b 20 20 20 20 62 | 6f 74 73 28 31 29 3d 62 |x.;    b|ots(1)=b|
|000006a0| 6f 74 73 28 31 29 2a 28 | 2d 73 2d 31 29 2a 28 73 |ots(1)*(|-s-1)*(s|
|000006b0| 2b 6e 2b 31 29 00 00 20 | 20 20 20 73 2b 31 00 20 |+n+1).. |   s+1. |
|000006c0| 20 20 20 80 0b 20 73 3e | 33 34 20 80 21 20 64 6f |   .. s>|34 .! do|
|000006d0| 6e 65 3d 80 c5 00 20 20 | 80 bc 20 64 6f 6e 65 00 |ne=...  |.. done.|
|000006e0| 80 d2 00 00 20 20 80 09 | 20 80 07 20 74 6f 74 00 |....  ..| .. tot.|
|000006f0| 80 02 20 80 09 00 00 00 | 00 00 00 00 00 00 00 80 |.. .....|........|
|00000700| 09 20 2e 66 20 66 7b 78 | 7d 00 80 15 20 72 61 69 |. .f f{x|}... rai|
|00000710| 73 65 00 00 20 20 80 09 | 20 80 07 20 67 61 6d 6d |se..  ..| .. gamm|
|00000720| 61 7b 78 7d 00 80 02 20 | 80 09 00 00 80 09 20 2e |a{x}... |...... .|
|00000730| 66 20 66 69 7b 78 7d 00 | 00 20 20 80 09 20 80 07 |f fi{x}.|.  .. ..|
|00000740| 20 e0 0c 28 80 ba 29 2f | 32 00 80 02 20 80 09 00 | ..(..)/|2... ...|
|00000750| 00 00 00 00 00 00 80 09 | 20 73 78 7b 72 78 7d 00 |........| sx{rx}.|
|00000760| 20 20 80 09 20 80 07 20 | 28 72 78 29 2a 32 30 00 |  .. .. |(rx)*20.|
|00000770| 80 02 20 80 09 00 00 80 | 09 20 72 78 7b 73 78 7d |.. .....|. rx{sx}|
|00000780| 00 20 20 80 09 20 80 07 | 20 73 78 2f 32 30 00 80 |.  .. ..| sx/20..|
|00000790| 02 20 80 09 00 00 80 09 | 20 73 79 7b 79 7d 00 20 |. ......| sy{y}. |
|000007a0| 20 80 09 20 80 07 20 31 | 32 38 2d 79 2a 36 34 00 | .. .. 1|28-y*64.|
|000007b0| 80 02 20 80 09 00 00 00 | 00 cf 01 20 30 2c 33 00 |.. .....|... 0,3.|
|000007c0| d0 03 20 30 2c 30 00 80 | 2c 20 d0 01 20 30 3a c7 |.. 0,0..|, .. 0:.|
|000007d0| 02 20 30 00 00 00 00 c7 | 04 20 31 2c 31 00 00 dd |. 0.....|. 1,1...|
|000007e0| 82 20 22 22 00 dd 82 20 | 22 22 00 dd 82 20 22 22 |. ""... |""... ""|
|000007f0| 00 00 00 00 00 80 16 20 | 73 78 3d 30 20 80 18 20 |....... |sx=0 .. |
|00000800| 33 31 39 00 20 20 78 3d | 72 78 7b 73 78 7d 00 00 |319.  x=|rx{sx}..|
|00000810| 00 20 20 74 6f 74 20 3d | 62 65 73 73 65 6c 6a 7b |.  tot =|besselj{|
|00000820| 30 2c 78 7d 00 20 20 74 | 6f 74 32 3d 62 65 73 73 |0,x}.  t|ot2=bess|
|00000830| 65 6c 6a 7b 31 2c 78 7d | 00 20 20 74 6f 74 33 3d |elj{1,x}|.  tot3=|
|00000840| 62 65 73 73 65 6c 6a 7b | 32 2c 78 7d 00 00 00 20 |besselj{|2,x}... |
|00000850| 20 b2 03 20 73 78 2c 73 | 79 7b 30 7d 2c 31 00 20 | .. sx,s|y{0},1. |
|00000860| 20 b2 03 20 73 78 2c 73 | 79 7b 74 6f 74 7d 2c 32 | .. sx,s|y{tot},2|
|00000870| 00 20 20 b2 03 20 73 78 | 2c 73 79 7b 74 6f 74 32 |.  .. sx|,sy{tot2|
|00000880| 7d 2c 33 00 20 20 b2 03 | 20 73 78 2c 73 79 7b 74 |},3.  ..| sx,sy{t|
|00000890| 6f 74 33 7d 2c 34 00 00 | 00 80 17 00 00 80 16 20 |ot3},4..|....... |
|000008a0| 63 6e 74 2e 77 3d 30 20 | 80 18 20 23 61 63 63 00 |cnt.w=0 |.. #acc.|
|000008b0| 20 20 dd 82 20 74 6f 70 | 73 28 63 6e 74 29 00 80 |  .. top|s(cnt)..|
|000008c0| 17 00 00 00 00 00 00 00 | 00 00 80 0a 00 80 02 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 80 1c 20 31 3d 30 |........|.... 1=0|
|000008e0| 20 20 3b 6d 61 6b 65 20 | 67 61 6d 6d 61 2e 64 61 |  ;make |gamma.da|
|000008f0| 74 00 80 33 2e 66 00 00 | 80 09 20 2e 66 20 66 7b |t..3.f..|.. .f f{|
|00000900| 78 7d 00 80 15 20 72 61 | 69 73 65 00 00 20 20 80 |x}... ra|ise..  .|
|00000910| 09 20 80 07 20 e0 07 28 | 2d 78 29 2a 28 78 5e 72 |. .. ..(|-x)*(x^r|
|00000920| 61 69 73 65 29 00 00 3b | 20 20 46 75 6e 63 74 69 |aise)..;|  Functi|
|00000930| 6f 6e 20 52 65 74 75 72 | 6e 20 28 78 2b 78 2a 78 |on Retur|n (x+x*x|
|00000940| 2d 31 29 20 2b 31 30 2a | 78 2a 78 2a 78 2a 78 00 |-1) +10*|x*x*x*x.|
|00000950| 00 3b 20 20 46 75 6e 63 | 74 69 6f 6e 20 52 65 74 |.;  Func|tion Ret|
|00000960| 75 72 6e 20 31 2f 28 78 | 2b 31 29 2f 28 78 2b 31 |urn 1/(x|+1)/(x+1|
|00000970| 29 00 80 02 20 80 09 00 | 00 80 09 20 2e 66 20 66 |)... ...|... .f f|
|00000980| 69 7b 78 7d 00 00 20 20 | 80 09 20 80 07 20 78 2a |i{x}..  |.. .. x*|
|00000990| 78 2f 32 2b 78 2a 78 2a | 78 2f 33 2d 78 20 2b 31 |x/2+x*x*|x/3-x +1|
|000009a0| 30 2a 78 2a 78 2a 78 2a | 78 2a 78 2f 35 00 80 02 |0*x*x*x*|x*x/5...|
|000009b0| 20 80 09 00 00 00 00 00 | 00 00 80 09 20 73 78 7b | .......|.... sx{|
|000009c0| 72 78 7d 00 20 20 80 09 | 20 80 07 20 28 72 78 29 |rx}.  ..| .. (rx)|
|000009d0| 2a 31 36 30 00 80 02 20 | 80 09 00 00 80 09 20 72 |*160... |...... r|
|000009e0| 78 7b 73 78 7d 00 20 20 | 80 09 20 80 07 20 73 78 |x{sx}.  |.. .. sx|
|000009f0| 2f 31 36 30 00 80 02 20 | 80 09 00 00 80 09 20 73 |/160... |...... s|
|00000a00| 79 7b 79 7d 00 20 20 80 | 09 20 80 07 20 31 32 38 |y{y}.  .|. .. 128|
|00000a10| 2d 79 2a 36 34 00 80 02 | 20 80 09 00 00 00 cf 01 |-y*64...| .......|
|00000a20| 20 30 2c 33 00 d0 03 20 | 30 2c 30 00 80 2c 20 d0 | 0,3... |0,0.., .|
|00000a30| 01 20 30 3a c7 02 20 30 | 00 00 00 00 00 73 3d 31 |. 0:.. 0|.....s=1|
|00000a40| 2e 35 00 72 61 69 73 65 | 3d 73 2d 31 00 c7 04 20 |.5.raise|=s-1... |
|00000a50| 31 2c 31 00 00 dd 82 20 | 72 61 69 73 65 00 6d 69 |1,1.... |raise.mi|
|00000a60| 6e 65 2e 66 3d 33 5e 28 | 2d 2e 35 29 00 dd 82 20 |ne.f=3^(|-.5)... |
|00000a70| 6d 69 6e 65 00 dd 82 20 | 22 22 00 dd 82 20 22 22 |mine... |""... ""|
|00000a80| 00 dd 82 20 22 22 00 00 | 80 16 20 73 78 3d 30 20 |... ""..|.. sx=0 |
|00000a90| 80 18 20 33 31 39 00 20 | 20 78 3d 72 78 7b 73 78 |.. 319. | x=rx{sx|
|00000aa0| 7d 00 20 20 79 3d 66 7b | 78 7d 00 00 20 20 b2 03 |}.  y=f{|x}..  ..|
|00000ab0| 20 73 78 2c 73 79 7b 30 | 7d 2c 31 00 20 20 b2 03 | sx,sy{0|},1.  ..|
|00000ac0| 20 73 78 2c 73 79 7b 79 | 7d 2c 32 00 20 20 b2 03 | sx,sy{y|},2.  ..|
|00000ad0| 20 73 78 2c 73 79 7b 66 | 69 7b 78 7d 7d 2c 33 00 | sx,sy{f|i{x}},3.|
|00000ae0| 80 17 00 00 00 00 6c 61 | 73 74 79 3d 30 3a 6c 61 |......la|sty=0:la|
|00000af0| 73 74 78 3d 30 00 bb 85 | 20 30 2c 30 2c 30 2c 30 |stx=0...| 0,0,0,0|
|00000b00| 2c 35 00 6d 79 73 74 3d | 31 2f 33 32 00 00 80 0b |,5.myst=|1/32....|
|00000b10| 20 be 12 20 28 30 2c 22 | 72 61 6d 3a 67 61 6d 6d | .. (0,"|ram:gamm|
|00000b20| 61 2e 64 61 74 22 29 00 | 00 20 20 64 69 66 3d e0 |a.dat").|.  dif=.|
|00000b30| 0c 28 80 ba 29 00 20 20 | 80 16 20 73 3d 31 20 80 |.(..).  |.. s=1 .|
|00000b40| 18 20 32 20 80 19 20 6d | 79 73 74 00 20 20 20 20 |. 2 .. m|yst.    |
|00000b50| 72 61 69 73 65 3d 73 2d | 31 00 20 20 20 20 6d 79 |raise=s-|1.    my|
|00000b60| 74 6f 74 3d 30 00 20 20 | 20 20 61 3d 33 30 30 20 |tot=0.  |  a=300 |
|00000b70| 20 20 3a 62 3d 33 30 20 | 20 3a 6e 3d 35 3a 80 06 |  :b=30 | :n=5:..|
|00000b80| 20 6e 75 6d 69 6e 74 3a | 6d 79 74 6f 74 2d 74 6f | numint:|mytot-to|
|00000b90| 74 00 20 20 20 20 61 3d | 33 30 20 20 20 20 3a 62 |t.    a=|30    :b|
|00000ba0| 3d 33 20 20 20 3a 6e 3d | 35 3a 80 06 20 6e 75 6d |=3   :n=|5:.. num|
|00000bb0| 69 6e 74 3a 6d 79 74 6f | 74 2d 74 6f 74 00 20 20 |int:myto|t-tot.  |
|00000bc0| 20 20 61 3d 30 2e 33 20 | 20 20 3a 62 3d 33 20 20 |  a=0.3 |  :b=3  |
|00000bd0| 20 3a 6e 3d 35 3a 80 06 | 20 6e 75 6d 69 6e 74 3a | :n=5:..| numint:|
|00000be0| 6d 79 74 6f 74 2b 74 6f | 74 00 20 20 20 20 61 3d |mytot+to|t.    a=|
|00000bf0| 30 2e 30 30 31 20 3a 62 | 3d 30 2e 33 20 3a 6e 3d |0.001 :b|=0.3 :n=|
|00000c00| 35 3a 80 06 20 6e 75 6d | 69 6e 74 3a 6d 79 74 6f |5:.. num|int:myto|
|00000c10| 74 2b 74 6f 74 00 00 00 | 00 20 20 20 20 78 3d 28 |t+tot...|.    x=(|
|00000c20| 73 2d 31 29 2a 33 32 30 | 00 00 20 20 20 20 74 74 |s-1)*320|..    tt|
|00000c30| 74 3d 31 2d 28 34 2a 28 | 73 2d 31 2e 35 29 2a 28 |t=1-(4*(|s-1.5)*(|
|00000c40| 73 2d 31 2e 35 29 29 00 | 20 20 20 20 64 65 6c 3d |s-1.5)).|    del=|
|00000c50| 30 2e 30 30 36 35 34 38 | 2b 28 73 2d 31 29 2a 30 |0.006548|+(s-1)*0|
|00000c60| 2e 30 30 31 33 36 32 2b | 20 74 74 74 2a 30 2e 30 |.001362+| ttt*0.0|
|00000c70| 30 31 31 35 34 36 00 20 | 20 20 20 74 65 6d 70 3d |011546. |   temp=|
|00000c80| 6d 79 74 6f 74 2d 64 65 | 6c 00 20 20 20 20 62 6c |mytot-de|l.    bl|
|00000c90| 61 68 2e 71 3d 74 65 6d | 70 00 20 20 20 20 80 0b |ah.q=tem|p.    ..|
|00000ca0| 20 73 3c 32 00 20 20 20 | 20 20 20 be 13 20 30 2c | s<2.   |   .. 0,|
|00000cb0| 26 62 6c 61 68 2c 34 00 | 20 20 20 20 80 c0 00 00 |&blah,4.|    ....|
|00000cc0| 20 20 20 20 dd 82 20 74 | 65 6d 70 2c 22 20 20 22 |    .. t|emp,"  "|
|00000cd0| 2c 74 65 6d 70 2d 64 69 | 66 2a 28 73 2d 31 29 00 |,temp-di|f*(s-1).|
|00000ce0| 20 20 20 20 bb 85 20 78 | 2c 73 79 7b 6d 79 74 6f |    .. x|,sy{myto|
|00000cf0| 74 7d 2c 35 00 00 20 20 | 3b 20 20 4e 50 72 69 6e |t},5..  |;  NPrin|
|00000d00| 74 20 6d 79 74 6f 74 2f | 28 73 2d 31 29 00 20 20 |t mytot/|(s-1).  |
|00000d10| 3b 20 20 4e 50 72 69 6e | 74 20 53 71 72 28 50 69 |;  NPrin|t Sqr(Pi|
|00000d20| 29 00 20 20 80 17 00 20 | 20 be 02 20 30 00 80 c0 |).  ... | .. 0...|
|00000d30| 00 00 00 00 00 00 80 0a | 00 80 02 00 00 00 00 2e |........|........|
|00000d40| 6e 75 6d 69 6e 74 00 00 | 20 20 68 3d 28 62 2d 61 |numint..|  h=(b-a|
|00000d50| 29 2f 6e 2a 30 2e 35 00 | 00 20 20 74 6f 74 3d 30 |)/n*0.5.|.  tot=0|
|00000d60| 3a 6d 79 78 3d 61 2b 68 | 00 20 20 80 16 20 6b 3d |:myx=a+h|.  .. k=|
|00000d70| 31 20 80 18 20 6e 2d 31 | 00 20 20 20 20 74 65 6d |1 .. n-1|.    tem|
|00000d80| 70 31 3d 66 7b 6d 79 78 | 7d 3a 6d 79 78 2b 68 00 |p1=f{myx|}:myx+h.|
|00000d90| 20 20 20 20 74 65 6d 70 | 32 3d 66 7b 6d 79 78 7d |    temp|2=f{myx}|
|00000da0| 3a 6d 79 78 2b 68 00 20 | 20 20 20 74 6f 74 3d 74 |:myx+h. |   tot=t|
|00000db0| 6f 74 2b 74 65 6d 70 31 | 2b 74 65 6d 70 31 2b 74 |ot+temp1|+temp1+t|
|00000dc0| 65 6d 70 32 00 20 20 80 | 17 00 20 20 74 65 6d 70 |emp2.  .|..  temp|
|00000dd0| 31 3d 66 7b 6d 79 78 7d | 00 20 20 74 65 6d 70 61 |1=f{myx}|.  tempa|
|00000de0| 3d 66 7b 61 7d 00 20 20 | 74 65 6d 70 62 3d 66 7b |=f{a}.  |tempb=f{|
|00000df0| 62 7d 00 20 20 74 6f 74 | 3d 28 74 6f 74 2a 32 2b |b}.  tot|=(tot*2+|
|00000e00| 74 65 6d 70 31 2a 34 2b | 74 65 6d 70 61 2b 74 65 |temp1*4+|tempa+te|
|00000e10| 6d 70 62 29 2a 28 62 2d | 61 29 2f 36 2f 6e 00 00 |mpb)*(b-|a)/6/n..|
|00000e20| 80 07 00 00 80 1f 00 00 | 00 80 1c 20 31 3d 30 20 |........|... 1=0 |
|00000e30| 3b 6d 61 6b 65 20 66 61 | 63 74 6f 72 69 61 6c 00 |;make fa|ctorial.|
|00000e40| 00 00 20 20 80 0b 20 be | 12 20 28 30 2c 22 72 61 |..  .. .|. (0,"ra|
|00000e50| 6d 3a 74 74 22 29 00 20 | 20 be 07 20 30 00 20 20 |m:tt"). | .. 0.  |
|00000e60| 78 2e 66 3d 31 00 20 20 | 80 16 20 73 2e 66 3d 31 |x.f=1.  |.. s.f=1|
|00000e70| 20 80 18 20 32 34 00 20 | 20 20 20 dd 81 20 22 2c | .. 24. |   .. ",|
|00000e80| 24 22 2c dc 84 28 da 02 | 2e 6c 28 26 78 29 29 00 |$",..(..|.l(&x)).|
|00000e90| 20 20 20 20 70 2e 71 3d | 73 00 20 20 20 20 80 0b |    p.q=|s.    ..|
|00000ea0| 20 70 26 37 3d 30 20 80 | 21 20 dd 82 20 22 22 00 | p&7=0 .|! .. "".|
|00000eb0| 20 20 20 20 78 3d 78 2a | 73 00 20 20 80 17 00 20 |    x=x*|s.  ... |
|00000ec0| 20 dd 82 20 22 22 00 20 | 20 78 2e 66 3d 2d 31 00 | .. "". | x.f=-1.|
|00000ed0| 20 20 80 16 20 73 2e 66 | 3d 31 20 80 18 20 32 34 |  .. s.f|=1 .. 24|
|00000ee0| 00 20 20 20 20 dd 81 20 | 22 2c 24 22 2c dc 84 28 |.    .. |",$",..(|
|00000ef0| da 02 2e 6c 28 26 78 29 | 29 00 20 20 20 20 70 2e |...l(&x)|).    p.|
|00000f00| 71 3d 73 00 20 20 20 20 | 80 0b 20 70 26 37 3d 30 |q=s.    |.. p&7=0|
|00000f10| 20 80 21 20 dd 82 20 22 | 22 00 20 20 20 20 78 3d | .! .. "|".    x=|
|00000f20| 78 2f 2d 73 00 20 20 80 | 17 00 20 20 be 02 20 30 |x/-s.  .|..  .. 0|
|00000f30| 00 20 20 80 c0 00 00 00 | 80 0a 00 80 02 00 80 1f |.  .....|........|
|00000f40| 00 00 00 00 80 1c 20 31 | 3d 30 20 3b 6f 6c 64 62 |...... 1|=0 ;oldb|
|00000f50| 65 73 73 65 6c 00 00 00 | 80 09 20 2e 66 20 62 65 |essel...|.. .f be|
|00000f60| 73 73 65 6c 7b 78 2c 6e | 7d 20 20 3b 66 6f 72 20 |ssel{x,n|}  ;for |
|00000f70| 78 3c 31 36 00 80 15 20 | 74 6f 70 73 28 29 2c 62 |x<16... |tops(),b|
|00000f80| 6f 74 73 28 29 00 00 20 | 20 74 6f 74 3d 30 00 20 |ots().. | tot=0. |
|00000f90| 20 68 78 3d 78 2f 32 00 | 00 20 20 6d 69 6e 3d 31 | hx=x/2.|.  min=1|
|00000fa0| 2f 31 36 33 38 34 3a 6d | 69 6e 2f 31 36 33 38 34 |/16384:m|in/16384|
|00000fb0| 3a 6d 69 6e 2f 31 36 33 | 38 34 00 20 20 80 16 20 |:min/163|84.  .. |
|00000fc0| 63 6e 74 2e 77 3d 31 20 | 80 18 20 23 61 63 63 3a |cnt.w=1 |.. #acc:|
|00000fd0| 74 6f 70 73 28 63 6e 74 | 29 3d 6d 69 6e 3a 62 6f |tops(cnt|)=min:bo|
|00000fe0| 74 73 28 63 6e 74 29 3d | 6d 69 6e 3a 80 17 00 00 |ts(cnt)=|min:....|
|00000ff0| 20 20 62 6f 74 73 28 30 | 29 3d 28 31 2a 67 61 6d |  bots(0|)=(1*gam|
|00001000| 6d 61 7b 6e 2b 31 7d 29 | 20 2a 6d 69 6e 00 20 20 |ma{n+1})| *min.  |
|00001010| 74 6f 70 73 28 30 29 3d | 28 68 78 5e 6e 20 20 20 |tops(0)=|(hx^n   |
|00001020| 20 20 20 20 20 29 20 2a | 6d 69 6e 00 00 20 20 73 |     ) *|min..  s|
|00001030| 3d 30 3a 64 6f 6e 65 2e | 77 3d 80 c6 00 20 20 80 |=0:done.|w=...  .|
|00001040| bb 00 20 20 20 20 70 2e | 71 3d 73 00 00 20 20 20 |..    p.|q=s..   |
|00001050| 20 74 65 6d 70 3d 74 6f | 70 73 28 30 29 2f 62 6f | temp=to|ps(0)/bo|
|00001060| 74 73 28 30 29 00 20 20 | 20 20 80 16 20 63 6e 74 |ts(0).  |  .. cnt|
|00001070| 2e 77 3d 31 20 80 18 20 | 23 61 63 63 00 20 20 20 |.w=1 .. |#acc.   |
|00001080| 20 20 20 74 65 6d 70 61 | 3d 28 74 6f 70 73 28 63 |   tempa|=(tops(c|
|00001090| 6e 74 29 2f 62 6f 74 73 | 28 63 6e 74 29 29 00 20 |nt)/bots|(cnt)). |
|000010a0| 20 20 20 20 20 74 65 6d | 70 3d 74 65 6d 70 2a 74 |     tem|p=temp*t|
|000010b0| 65 6d 70 61 00 20 20 20 | 20 80 17 00 20 20 20 20 |empa.   | ...    |
|000010c0| 80 0b 20 28 73 3e 33 29 | 20 80 42 20 28 bc 09 28 |.. (s>3)| .B (..(|
|000010d0| 74 65 6d 70 29 3c 30 2e | 30 30 30 31 29 20 80 21 |temp)<0.|0001) .!|
|000010e0| 20 64 6f 6e 65 3d 80 c5 | 00 20 20 20 20 74 6f 74 | done=..|.    tot|
|000010f0| 3d 74 6f 74 2b 20 74 65 | 6d 70 00 00 20 20 20 20 |=tot+ te|mp..    |
|00001100| 69 64 78 74 2e 77 3d 30 | 3a 6d 69 6e 74 3d bc 09 |idxt.w=0|:mint=..|
|00001110| 28 74 6f 70 73 28 30 29 | 29 00 20 20 20 20 69 64 |(tops(0)|).    id|
|00001120| 78 62 2e 77 3d 30 3a 6d | 69 6e 62 3d bc 09 28 62 |xb.w=0:m|inb=..(b|
|00001130| 6f 74 73 28 30 29 29 00 | 20 20 20 20 80 16 20 63 |ots(0)).|    .. c|
|00001140| 6e 74 2e 77 3d 31 20 80 | 18 20 23 61 63 63 00 20 |nt.w=1 .|. #acc. |
|00001150| 20 20 20 20 20 74 65 6d | 70 61 3d bc 09 28 74 6f |     tem|pa=..(to|
|00001160| 70 73 28 63 6e 74 29 29 | 3a 80 0b 20 74 65 6d 70 |ps(cnt))|:.. temp|
|00001170| 61 3c 6d 69 6e 74 20 80 | 21 20 69 64 78 74 3d 63 |a<mint .|! idxt=c|
|00001180| 6e 74 3a 6d 69 6e 74 3d | 74 65 6d 70 61 00 20 20 |nt:mint=|tempa.  |
|00001190| 20 20 20 20 74 65 6d 70 | 62 3d bc 09 28 62 6f 74 |    temp|b=..(bot|
|000011a0| 73 28 63 6e 74 29 29 3a | 80 0b 20 74 65 6d 70 62 |s(cnt)):|.. tempb|
|000011b0| 3c 6d 69 6e 62 20 80 21 | 20 69 64 78 62 3d 63 6e |<minb .!| idxb=cn|
|000011c0| 74 3a 6d 69 6e 62 3d 74 | 65 6d 70 62 00 20 20 20 |t:minb=t|empb.   |
|000011d0| 20 80 17 00 00 20 20 20 | 20 74 6f 70 73 28 69 64 | ....   | tops(id|
|000011e0| 78 74 29 3d 74 6f 70 73 | 28 69 64 78 74 29 2a 68 |xt)=tops|(idxt)*h|
|000011f0| 78 2a 68 78 00 20 20 20 | 20 62 6f 74 73 28 69 64 |x*hx.   | bots(id|
|00001200| 78 62 29 3d 62 6f 74 73 | 28 69 64 78 62 29 2a 28 |xb)=bots|(idxb)*(|
|00001210| 2d 73 2d 31 29 2a 28 73 | 2b 6e 2b 31 29 00 00 00 |-s-1)*(s|+n+1)...|
|00001220| 3b 20 20 20 20 74 6f 70 | 3d 28 2d 31 29 5e 73 20 |;    top|=(-1)^s |
|00001230| 2a 20 68 78 5e 28 6e 2b | 73 2b 73 29 00 3b 20 20 |* hx^(n+|s+s).;  |
|00001240| 20 20 62 6f 74 3d 66 61 | 63 74 7b 73 7d 2a 67 61 |  bot=fa|ct{s}*ga|
|00001250| 6d 6d 61 7b 6e 2b 73 2b | 31 7d 00 3b 20 20 20 20 |mma{n+s+|1}.;    |
|00001260| 74 6f 70 73 28 31 29 3d | 74 6f 70 73 28 31 29 2a |tops(1)=|tops(1)*|
|00001270| 68 78 2a 68 78 00 3b 20 | 20 20 20 62 6f 74 73 28 |hx*hx.; |   bots(|
|00001280| 31 29 3d 62 6f 74 73 28 | 31 29 2a 28 2d 73 2d 31 |1)=bots(|1)*(-s-1|
|00001290| 29 2a 28 73 2b 6e 2b 31 | 29 00 00 20 20 20 20 73 |)*(s+n+1|)..    s|
|000012a0| 2b 31 00 20 20 20 20 80 | 0b 20 73 3e 33 34 20 80 |+1.    .|. s>34 .|
|000012b0| 21 20 64 6f 6e 65 3d 80 | c5 00 20 20 80 bc 20 64 |! done=.|..  .. d|
|000012c0| 6f 6e 65 00 00 00 20 20 | 80 09 20 80 07 20 74 6f |one...  |.. .. to|
|000012d0| 74 00 80 02 20 80 09 00 | 00 80 1f 00 00 00 00 80 |t... ...|........|
|000012e0| 1c 20 31 3d 30 00 75 28 | 78 2c 20 74 29 20 3d 20 |. 1=0.u(|x, t) = |
|000012f0| 20 20 2e 31 31 31 31 37 | 33 30 35 30 33 20 20 20 |  .11117|30503   |
|00001300| 20 42 65 73 73 65 6c 4a | 28 30 2c 20 32 2e 34 30 | BesselJ|(0, 2.40|
|00001310| 34 38 32 35 35 35 38 20 | 78 5e 30 2e 35 20 29 20 |4825558 |x^0.5 ) |
|00001320| e0 05 28 31 2e 32 30 32 | 34 31 32 37 37 39 20 74 |..(1.202|412779 t|
|00001330| 29 00 20 20 20 20 20 20 | 20 20 20 20 2d 20 2e 30 |).      |    - .0|
|00001340| 31 34 30 32 34 35 33 30 | 31 35 20 20 20 42 65 73 |14024530|15   Bes|
|00001350| 73 65 6c 4a 28 30 2c 20 | 35 2e 35 32 30 30 37 38 |selJ(0, |5.520078|
|00001360| 31 31 30 20 78 5e 30 2e | 35 20 29 20 e0 05 28 32 |110 x^0.|5 ) ..(2|
|00001370| 2e 37 36 30 30 33 39 30 | 35 35 20 74 29 00 20 20 |.7600390|55 t).  |
|00001380| 20 20 20 20 20 20 20 20 | 2b 20 2e 30 30 34 35 36 |        |+ .00456|
|00001390| 32 38 36 36 37 37 39 20 | 20 42 65 73 73 65 6c 4a |2866779 | BesselJ|
|000013a0| 28 30 2c 20 38 2e 36 35 | 33 37 32 37 39 31 33 20 |(0, 8.65|3727913 |
|000013b0| 78 5e 30 2e 35 20 29 20 | e0 05 28 34 2e 33 32 36 |x^0.5 ) |..(4.326|
|000013c0| 38 36 33 39 35 37 20 74 | 29 00 20 20 20 20 20 20 |863957 t|).      |
|000013d0| 20 20 20 20 2d 20 2e 30 | 30 32 31 30 36 31 31 35 |    - .0|02106115|
|000013e0| 32 36 34 20 20 42 65 73 | 73 65 6c 4a 28 30 2c 20 |264  Bes|selJ(0, |
|000013f0| 31 31 2e 37 39 31 35 33 | 34 34 34 20 78 5e 30 2e |11.79153|444 x^0.|
|00001400| 35 20 29 20 e0 05 28 35 | 2e 38 39 35 37 36 37 32 |5 ) ..(5|.8957672|
|00001410| 32 30 20 74 29 00 20 20 | 20 20 20 20 20 20 20 20 |20 t).  |        |
|00001420| 2b 20 2e 30 30 31 31 36 | 37 35 31 38 36 33 38 20 |+ .00116|7518638 |
|00001430| 20 42 65 73 73 65 6c 4a | 28 30 2c 20 31 34 2e 39 | BesselJ|(0, 14.9|
|00001440| 33 30 39 31 37 37 31 20 | 78 5e 30 2e 35 20 29 20 |3091771 |x^0.5 ) |
|00001450| e0 05 28 37 2e 34 36 35 | 34 35 38 38 35 35 20 74 |..(7.465|458855 t|
|00001460| 29 00 20 20 20 20 20 20 | 20 20 20 20 2d 20 2e 30 |).      |    - .0|
|00001470| 30 30 37 32 34 35 33 34 | 32 39 39 38 20 42 65 73 |00724534|2998 Bes|
|00001480| 73 65 6c 4a 28 30 2c 20 | 31 38 2e 30 37 31 30 36 |selJ(0, |18.07106|
|00001490| 33 39 37 20 78 5e 30 2e | 35 20 29 20 e0 05 28 39 |397 x^0.|5 ) ..(9|
|000014a0| 2e 30 33 35 35 33 31 39 | 38 35 20 74 29 00 20 20 |.0355319|85 t).  |
|000014b0| 20 20 20 20 20 20 20 20 | 2b 20 2e 30 30 30 34 38 |        |+ .00048|
|000014c0| 35 34 30 36 32 39 33 37 | 20 42 65 73 73 65 6c 4a |54062937| BesselJ|
|000014d0| 28 30 2c 20 32 31 2e 32 | 31 31 36 33 36 36 33 20 |(0, 21.2|1163663 |
|000014e0| 78 20 20 20 29 20 e0 05 | 28 31 30 2e 36 30 35 38 |x   ) ..|(10.6058|
|000014f0| 31 38 33 32 20 74 29 00 | 20 20 20 20 20 20 20 20 |1832 t).|        |
|00001500| 20 20 2d 20 2e 30 30 30 | 33 34 33 37 31 34 33 37 |  - .000|34371437|
|00001510| 39 31 20 42 65 73 73 65 | 6c 4a 28 30 2c 20 32 34 |91 Besse|lJ(0, 24|
|00001520| 2e 33 35 32 34 37 31 35 | 33 20 78 20 20 20 29 20 |.3524715|3 x   ) |
|00001530| e0 05 28 31 32 2e 31 37 | 36 32 33 35 37 37 20 74 |..(12.17|623577 t|
|00001540| 29 00 20 20 20 20 20 20 | 20 20 20 20 2b 20 2e 30 |).      |    + .0|
|00001550| 30 30 32 35 33 37 39 39 | 35 36 30 32 20 42 65 73 |00253799|5602 Bes|
|00001560| 73 65 6c 4a 28 30 2c 20 | 32 37 2e 34 39 33 34 37 |selJ(0, |27.49347|
|00001570| 39 31 33 20 78 20 20 20 | 29 20 e0 05 28 31 33 2e |913 x   |) ..(13.|
|00001580| 37 34 36 37 33 39 35 37 | 20 74 29 00 20 20 20 20 |74673957| t).    |
|00001590| 20 20 20 20 20 20 2d 20 | 2e 30 30 30 31 39 33 36 |      - |.0001936|
|000015a0| 36 30 36 32 37 32 20 42 | 65 73 73 65 6c 4a 28 30 |606272 B|esselJ(0|
|000015b0| 2c 20 33 30 2e 36 33 34 | 36 30 36 34 37 20 78 20 |, 30.634|60647 x |
|000015c0| 20 20 29 20 e0 05 28 31 | 35 2e 33 31 37 33 30 33 |  ) ..(1|5.317303|
|000015d0| 32 34 20 74 29 00 00 00 | 00 80 1f 00 00 00 62 6f |24 t)...|......bo|
|000015e0| 74 74 00 80 33 2e 71 00 | 00 00 00 c7 82 20 30 2c |tt..3.q.|..... 0,|
|000015f0| 32 00 d0 01 20 30 2c 33 | 32 30 2c 32 35 36 2c 32 |2... 0,3|20,256,2|
|00001600| 00 d0 01 20 31 2c 33 32 | 30 2c 32 35 36 2c 32 00 |... 1,32|0,256,2.|
|00001610| 80 34 00 c7 83 20 30 00 | c7 84 20 30 2c 30 00 c7 |.4... 0.|.. 0,0..|
|00001620| 02 20 30 00 20 20 dd 82 | 20 22 49 6e 69 74 69 61 |. 0.  ..| "Initia|
|00001630| 6c 69 7a 28 73 29 69 6e | 67 22 00 00 80 04 20 66 |liz(s)in|g".... f|
|00001640| 61 63 74 6f 72 73 28 32 | 35 36 2c 31 32 29 2c 6d |actors(2|56,12),m|
|00001650| 75 6c 74 28 31 32 29 00 | 00 80 16 20 63 6e 74 2e |ult(12).|... cnt.|
|00001660| 77 3d 30 20 80 18 20 32 | 3b 34 00 20 20 80 1b 20 |w=0 .. 2|;4.  .. |
|00001670| 61 2c 62 2c 63 00 20 20 | 6d 75 6c 74 28 63 6e 74 |a,b,c.  |mult(cnt|
|00001680| 29 3d 63 00 20 20 dd 81 | 20 63 6e 74 00 20 20 80 |)=c.  ..| cnt.  .|
|00001690| 16 20 79 3d 30 20 80 18 | 20 32 35 35 00 00 20 20 |. y=0 ..| 255..  |
|000016a0| 20 20 74 3d 28 32 35 35 | 2d 79 29 20 80 45 20 38 |  t=(255|-y) .E 8|
|000016b0| 00 20 20 20 20 74 3d 62 | 2a e0 0c 28 74 29 00 20 |.    t=b|*..(t). |
|000016c0| 20 20 20 78 3d 62 65 73 | 73 65 6c 6a 7b 30 2c 74 |   x=bes|selj{0,t|
|000016d0| 7d 2a 61 3b 2e 31 3b 61 | 00 20 20 20 20 66 61 63 |}*a;.1;a|.    fac|
|000016e0| 74 6f 72 73 28 79 2c 63 | 6e 74 29 3d 78 2a 38 36 |tors(y,c|nt)=x*86|
|000016f0| 30 00 20 20 80 17 00 20 | 20 dd 82 20 22 2e 22 00 |0.  ... | .. ".".|
|00001700| 80 17 00 00 74 69 6d 65 | 3d 30 00 80 bb 00 00 00 |....time|=0......|
|00001710| 20 20 80 37 3a c7 84 20 | 30 2c 64 62 00 3a 64 62 |  .7:.. |0,db.:db|
|00001720| 3d 31 2d 64 62 3a 80 2c | 20 d0 01 20 64 62 3a b2 |=1-db:.,| .. db:.|
|00001730| 05 00 00 20 20 66 61 63 | 30 3d e0 05 28 74 69 6d |...  fac|0=..(tim|
|00001740| 65 2a 6d 75 6c 74 28 30 | 29 29 00 20 20 66 61 63 |e*mult(0|)).  fac|
|00001750| 31 3d e0 05 28 74 69 6d | 65 2a 6d 75 6c 74 28 31 |1=..(tim|e*mult(1|
|00001760| 29 29 00 20 20 66 61 63 | 32 3d e0 05 28 74 69 6d |)).  fac|2=..(tim|
|00001770| 65 2a 6d 75 6c 74 28 32 | 29 29 00 3b 20 20 66 61 |e*mult(2|)).;  fa|
|00001780| 63 33 3d 43 6f 73 28 74 | 69 6d 65 2a 6d 75 6c 74 |c3=Cos(t|ime*mult|
|00001790| 28 33 29 29 00 3b 20 20 | 66 61 63 34 3d 43 6f 73 |(3)).;  |fac4=Cos|
|000017a0| 28 74 69 6d 65 2a 6d 75 | 6c 74 28 34 29 29 00 3b |(time*mu|lt(4)).;|
|000017b0| 20 20 66 61 63 35 3d 43 | 6f 73 28 74 69 6d 65 2a |  fac5=C|os(time*|
|000017c0| 6d 75 6c 74 28 35 29 29 | 00 20 20 bb 85 20 30 2c |mult(5))|.  .. 0,|
|000017d0| 30 2c 30 2c 30 2c 30 00 | 00 20 20 80 16 20 79 3d |0,0,0,0.|.  .. y=|
|000017e0| 30 20 80 18 20 32 35 35 | 00 20 20 20 20 78 30 3d |0 .. 255|.    x0=|
|000017f0| 66 61 63 74 6f 72 73 28 | 79 2c 30 29 2a 66 61 63 |factors(|y,0)*fac|
|00001800| 30 00 20 20 20 20 78 31 | 3d 66 61 63 74 6f 72 73 |0.    x1|=factors|
|00001810| 28 79 2c 31 29 2a 66 61 | 63 31 00 20 20 20 20 78 |(y,1)*fa|c1.    x|
|00001820| 32 3d 66 61 63 74 6f 72 | 73 28 79 2c 32 29 2a 66 |2=factor|s(y,2)*f|
|00001830| 61 63 32 00 20 20 20 20 | 78 33 3d 66 61 63 74 6f |ac2.    |x3=facto|
|00001840| 72 73 28 79 2c 33 29 2a | 66 61 63 33 00 20 20 20 |rs(y,3)*|fac3.   |
|00001850| 20 78 34 3d 66 61 63 74 | 6f 72 73 28 79 2c 34 29 | x4=fact|ors(y,4)|
|00001860| 2a 66 61 63 34 00 3b 20 | 20 20 20 78 35 3d 66 61 |*fac4.; |   x5=fa|
|00001870| 63 74 6f 72 73 28 79 2c | 35 29 2a 66 61 63 35 00 |ctors(y,|5)*fac5.|
|00001880| 00 3b 20 20 20 20 50 6c | 6f 74 20 78 30 2b 35 30 |.;    Pl|ot x0+50|
|00001890| 2e 35 2c 79 2c 31 00 3b | 20 20 20 20 50 6c 6f 74 |.5,y,1.;|    Plot|
|000018a0| 20 78 31 2b 38 30 2e 35 | 2c 79 2c 31 00 3b 20 20 | x1+80.5|,y,1.;  |
|000018b0| 20 20 50 6c 6f 74 20 78 | 32 2b 33 30 30 2e 35 2c |  Plot x|2+300.5,|
|000018c0| 79 2c 31 00 3b 20 20 20 | 20 50 6c 6f 74 20 78 33 |y,1.;   | Plot x3|
|000018d0| 2b 32 38 30 2e 35 2c 79 | 2c 31 00 3b 20 20 20 20 |+280.5,y|,1.;    |
|000018e0| 50 6c 6f 74 20 78 34 2b | 32 36 30 2e 35 2c 79 2c |Plot x4+|260.5,y,|
|000018f0| 31 00 00 3b 20 20 20 20 | 50 6c 6f 74 20 78 30 2b |1..;    |Plot x0+|
|00001900| 78 31 2b 78 32 2b 78 33 | 2b 78 34 2b 31 36 30 2e |x1+x2+x3|+x4+160.|
|00001910| 35 2c 79 2c 31 00 20 20 | 20 20 b2 03 20 78 30 2b |5,y,1.  |  .. x0+|
|00001920| 78 31 2b 78 32 2b 31 36 | 30 2e 35 2c 79 2c 31 00 |x1+x2+16|0.5,y,1.|
|00001930| 00 20 20 80 17 00 20 20 | 74 69 6d 65 3d 74 69 6d |.  ...  |time=tim|
|00001940| 65 2b 30 2e 30 32 00 80 | bc 20 df 04 28 30 29 3c |e+0.02..|. ..(0)<|
|00001950| 3e 30 00 80 02 00 00 00 | 80 1a 2e 71 20 20 20 20 |>0......|...q    |
|00001960| 20 2e 31 31 31 31 37 33 | 20 2c 20 32 2e 34 30 34 | .111173| , 2.404|
|00001970| 38 32 20 20 2c 31 2e 32 | 30 32 34 31 00 80 1a 2e |82  ,1.2|0241....|
|00001980| 71 20 20 20 2d 20 2e 30 | 31 34 30 32 34 20 2c 20 |q   - .0|14024 , |
|00001990| 35 2e 35 32 30 30 37 20 | 20 2c 32 2e 37 36 30 30 |5.52007 | ,2.7600|
|000019a0| 33 00 80 1a 2e 71 20 20 | 20 20 20 2e 30 30 34 35 |3....q  |   .0045|
|000019b0| 36 32 20 2c 20 38 2e 36 | 35 33 37 32 20 20 2c 34 |62 , 8.6|5372  ,4|
|000019c0| 2e 33 32 36 38 36 00 80 | 1a 2e 71 20 20 20 2d 20 |.32686..|..q   - |
|000019d0| 2e 30 30 32 31 30 36 20 | 2c 20 31 31 2e 37 39 31 |.002106 |, 11.791|
|000019e0| 35 20 20 2c 35 2e 38 39 | 35 37 36 00 80 1a 2e 71 |5  ,5.89|576....q|
|000019f0| 20 20 20 20 20 2e 30 30 | 31 31 36 37 20 2c 20 31 |     .00|1167 , 1|
|00001a00| 34 2e 39 33 30 39 20 20 | 2c 37 2e 34 36 35 34 35 |4.9309  |,7.46545|
|00001a10| 00 80 1a 2e 71 20 20 20 | 2d 20 2e 30 30 30 37 32 |....q   |- .00072|
|00001a20| 34 20 2c 20 31 38 2e 30 | 37 31 30 20 20 2c 39 2e |4 , 18.0|710  ,9.|
|00001a30| 30 33 35 35 33 00 80 1a | 2e 71 20 20 20 20 20 2e |03553...|.q     .|
|00001a40| 30 30 30 34 38 35 20 2c | 20 32 31 2e 32 31 31 36 |000485 ,| 21.2116|
|00001a50| 20 20 2c 31 30 2e 36 30 | 35 38 00 80 1a 2e 71 20 |  ,10.60|58....q |
|00001a60| 20 20 2d 20 2e 30 30 30 | 33 34 33 20 2c 20 32 34 |  - .000|343 , 24|
|00001a70| 2e 33 35 32 34 20 20 2c | 31 32 2e 31 37 36 32 00 |.3524  ,|12.1762.|
|00001a80| 80 1a 2e 71 20 20 20 20 | 20 2e 30 30 30 32 35 33 |...q    | .000253|
|00001a90| 20 2c 20 32 37 2e 34 39 | 33 34 20 20 2c 31 33 2e | , 27.49|34  ,13.|
|00001aa0| 37 34 36 37 00 80 1a 2e | 71 20 20 20 2d 20 2e 30 |7467....|q   - .0|
|00001ab0| 30 30 31 39 33 20 2c 20 | 33 30 2e 36 33 34 36 20 |00193 , |30.6346 |
|00001ac0| 20 2c 31 35 2e 33 31 37 | 33 00 00 00             | ,15.317|3...    |
+--------+-------------------------+-------------------------+--------+--------+